Script: --on closeField wdID,wdName,objNo,objName,objValue¬if wsGet(wdID,"Name","Text") is not empty or wsGet(wdID,"Serial Number","Text") is not empty then¬ wsSet wdID,"Register","DefaultItem", "TRUE"¬else¬ wsSet wdID,"Free Demo","DefaultItem", "TRUE"¬end if¬--end closeField¬
ItemType: TEXT
Rect: 133,175,274,191
Name: Name
LockText: FALSE
Script: --on closeField wdID,wdName,objNo,objName,objValue¬if wsGet(wdID,"Name","Text") is not empty or wsGet(wdID,"Serial Number","Text") is not empty then¬ wsSet wdID,"Register","DefaultItem", "TRUE"¬else¬ wsSet wdID,"Free Demo","DefaultItem", "TRUE"¬end if¬--end closeField¬
ItemType: PUSH
Rect: 287,162,366,182
TextFont: Chicago
TextSize: 12
Name: Register
AutoClose: TRUE
ItemType: PUSH
Rect: 146,240,260,262
TextFont: Chicago
TextSize: 12
AutoSize: FALSE
Name: Free Demo
DefaultItem: TRUE
AutoClose: TRUE
ItemType: PICT
Rect: 205,12,346,89
Name: Labyrinth
ItemType: TEXT
Rect: 43,19,178,38
TextSize: 14
Name: Please Register
BlackColor: 4369,4369,4369
WhiteColor: -1,-1,-26215
TextStyle: Bold
TextAlign: Center
Text: Please Register
ItemType: TEXT
Rect: 57,269,345,281
Name: demo message
BlackColor: 4369,4369,4369
WhiteColor: -1,-1,-26215
TextAlign: Center
Text: You can try Theseus in fully-functional Demo Mode for 30 days
ItemType: TEXT
Rect: 22,102,371,138
Name: register message
BlackColor: 4369,4369,4369
WhiteColor: -1,-1,-26215
TextAlign: Center
Text: You can purchase a serial number for Theseus for just $49.¬Use the order form on our Web site, or email us for other payment options. We'll email you a serial number you can enter into this window.
ItemType: TEXT
Rect: 18,213,378,225
Name: we accept
BlackColor: 4369,4369,4369
WhiteColor: -1,-1,-26215
TextAlign: Center
Text: We accept credit cards, checks & purchase orders by web, email, phone or fax